home *** CD-ROM | disk | FTP | other *** search
/ Ian & Stuart's Australian Mac: Not for Sale / Another.not.for.sale (Australia).iso / fade into you / getting there / TCP⁄PPP⁄SLIP / Scripts / scr-ids-script < prev    next >
Internet Message Format  |  1994-11-04  |  3KB

  1. Date: Fri, 4 Nov 1994 17:46:24 -0600
  2. From: billpr@ids.net (Bill J. Parker)
  3. Subject: comm/tcp/scr-ids-world-network
  4.  
  5.  
  6.  
  7. --========================_12021677==_
  8. Content-Type: text/plain; charset="us-ascii"
  9.  
  10.  The attatched file is an InterSLIP Gateway Script I've written for the IDS
  11. World Network (155.212.1.2). I wrote some instructions at the top of the
  12. script, to explain it a little. The script works with the current IDS
  13. Gateway (July 1994), and will be updated as the gateway changes.
  14.  The file has been checked with Disinfectant 3.5
  15.  
  16. Please post to the archives.
  17.  
  18.  
  19.  
  20. --========================_12021677==_
  21. Content-Type: text/plain; name="scr-IDS-BJP"; charset="us-ascii"
  22. Content-Disposition: attachment; filename="scr-IDS-BJP"
  23.  
  24. !
  25. !    InterSLIP Gateway Script for the IDS World Network (155.212.1.2)
  26. !                        Version 1.0 (7/10/94)
  27. !                        Bill J. Parker (billpr@ids.net)
  28. !
  29. !    To use, simply place inside the "Gateway Scripts" folder in the InterSlip
  30. folder
  31. !    in your Preferences folder in your System Folder (whew!) and then select
  32. it from
  33. !    the pull-down menu in the InterSLIP Setup window. You should configure your IP
  34. !    address in the Setup window as well. Leaving 1006 for MTU is a good idea, too
  35. !    (something is needed in the IP and MTU fields, as well as the
  36. Username/Password
  37. !    fields, in order for this script to work. Contact support@ids.net if you
  38. aren't
  39. !    sure what your IP is (although it should also be configured in MacTCP by now).
  40. !    The IDS World Network doesn't support this script (but I don't think they mind
  41. !    me doing it :-) so DON'T send questions to them about it, send all
  42. questions about
  43. !    the script to me, since I wrote it. I DO NOT GUARANTEE THAT THIS SCRIPT
  44. WILL WORK
  45. !    ON ALL MACINTOSH MACHINES (ALTHOUGH I'VE GOT NO IDEA WHY IT WOULDN'T) AND
  46. I REALLY
  47. !    REALLY DO NOT ACCEPT RESPONSIBILITY FOR ANY LOSS OF DATA OR ANYTHING ELSE
  48. !    RESULTING FROM THE USE OF THIS SCRIPT (except of course when it works fine).
  49. !    I really hope nothing bad happens, though. --==[BJP]==--
  50. !    I will try to update the script for all IDS login changes in a timely fashion.
  51. !
  52. @originate
  53. note "Waiting for prompt..."
  54. matchclr
  55. matchstr 1 1 "login: "
  56. matchread 60
  57. note "No Login prompt"
  58. jump 99
  59. !
  60. ! If the Login prompt appeared, send the account name and wait for
  61. ! the password prompt
  62. !
  63. @label 1
  64. note "Sending Account Name..."
  65. write "^5\13"
  66. matchclr
  67. matchstr 1 2 "Password: "
  68. matchread 60
  69. note "No password prompt!"
  70. jump 99
  71. !
  72. ! Send the password...
  73. !
  74. @label 2
  75. note "Sending Password..."
  76. write "^6\13"
  77. matchclr
  78. matchstr 1 4 "Packet mode enabled"
  79. matchstr 2 3 "Login incorrect."
  80. matchread 120
  81. jump 99
  82. !
  83. ! If something went wrong...
  84. !
  85. @label 3
  86. note "Login incorrect!"
  87. !
  88. !Gereral purpose error handler.
  89. !
  90. @label 99
  91. pause 1
  92. sound
  93. pause 60
  94. exit -1
  95. !
  96. ! If the login was successful, then set IP/MTU (which are configured in
  97. ! InterSlip Setup)
  98. @label 4
  99. note "Setting IP..."
  100. SetIP "^7"
  101. note "Setting MTU..."
  102. SetMTU "^9"
  103. note "SLIP Enabled!"
  104. exit 0
  105. !
  106. ! Answer and Hangup are currently unused in gateway scripts, but the
  107. ! manual suggests using them for future compatibility.
  108. !
  109. @answer
  110. @hangup
  111. exit 0
  112.  
  113.  
  114. --========================_12021677==_--
  115.  
  116.  
  117.